home *** CD-ROM | disk | FTP | other *** search
/ SunSoft Catalyst CDWARE 1996 May to August / Catalyst CDWARE 1996 May to August.iso / .products / .bin / httpd / Solaris_2 / run.old < prev    next >
Text File  |  1995-06-29  |  578b  |  24 lines
  1. #!/tmp/httpd/bin/perl -- -*-perl-*-
  2. $ROOT = $ENV{'DOCUMENT_ROOT'};
  3. $ENV{'OPENWINHOME'} = '/usr/openwin/';
  4. $ENV{"LD_LIBRARY_PATH"} = '/usr/openwin/lib:/usr/lib:/usr/slib';
  5. $ENV{"PATH"} = '.:/bin:/usr/bin:/usr/sbin:/usr/openwin/bin';
  6. $ENV{"DISPLAY"} = "localhost:0.0";
  7.  
  8.  
  9.  
  10. while (@ARGV) {
  11. $ARGV=shift;
  12. $executable = $ARGV;
  13. $ARGV=shift;
  14. $company = $ARGV;
  15. }
  16. $COMPANY_DIR = "$ROOT/$company";
  17. $ENV{"COMPANY_DIR"} = $COMPANY_DIR;
  18. $ENV{"COMPANY_NAME"} = $company;
  19. chdir ("$COMPANY_DIR");
  20. system "./$executable&";
  21.  
  22. print "Location: http://localhost:7999/$company/index.html \n\n";
  23. exit 0
  24.